--
-- $Id: xpa-lists-double.ads,v 1.3 2005-06-14 15:46:26 bacon Exp $
--

generic

package Xpa.Lists.Double is
	type List is tagged private;

private
	type Node;
	type Node_Access is access Node;
	type Node is record
		datum: Datum_Type;
		previous: Node_Access;
		next: Node_Access;
	end record;

	type List is new List_Base with record
		head: Node;
		tail: Node;
	end record;

	procedure Initialize (object: in out List);
	procedure Adjust (object: in out List);
	procedure Finalize (object: in out List);

	procedure Clear (object: in out List);

end Xpa.Lists.double;
